{-# LANGUAGE TemplateHaskell, QuasiQuotes, OverloadedStrings #-}
module Handler.About where

import Foundation

import Settings.StaticFiles

import Handler.Common


getAboutR :: Handler RepHtml
getAboutR = do

    newDefaultLayout $ do

        setTitle "About WSO-UV"

        addStylesheet $ StaticR css_about_css

        addWidget $(widgetFile "about")

getMissionR :: Handler RepHtml
getMissionR = do
    
    newDefaultLayout $ do

        setTitle "Mission"

        addWidget $(widgetFile "mission")

getObjectivesR :: Handler RepHtml
getObjectivesR = do
    
    newDefaultLayout $ do

        setTitle "Objectives"

        addWidget $(widgetFile "objectives")

getParticipantsR :: Handler RepHtml
getParticipantsR = do
    
    newDefaultLayout $ do

        setTitle "Participants"

        addWidget $(widgetFile "participants")

getContactR :: Handler RepHtml
getContactR = do
    
    newDefaultLayout $ do

        setTitle "Contact"

        addWidget $(widgetFile "contact")